https://satijalab.org/seurat/articles/pbmc3k_tutorial.html
library(readr)
EZ_Batch1 <- read_csv("EZ_Batch1.csv")
## New names:
## * `` -> ...1
## Rows: 18438 Columns: 31734
## -- Column specification --------------------------------------------------------
## Delimiter: ","
## chr (1): ...1
## dbl (31733): EZ.Batch1_HipR-AD-G3-2w_GTACTTTCACATGGGA, EZ.Batch1_HipR-AD-G3-...
##
## i Use `spec()` to retrieve the full column specification for this data.
## i Specify the column types or set `show_col_types = FALSE` to quiet this message.
EZ_Batch1<-as.data.frame(EZ_Batch1)
head(EZ_Batch1)
library(Seurat)
## Attaching SeuratObject
colnames(EZ_Batch1)[1] <- "gene"
rownames(EZ_Batch1) <- EZ_Batch1$gene
EZ_Batch1$gene <- NULL
head(EZ_Batch1)